home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / read_plx (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  624b  |  14 lines
  1. 1 REM READ/PLX C8.5     10/10/86
  2. 2 :DIMN$(25):OPEN15,8,15:POKE808,234:POKE53280,0:POKE53281,0:POKE646,15:PRINT"[147]"TAB(14)"READING FILE":K=1:OPEN9,8,9,"0:PLX,S,R":GOSUB9:IFE>0THENE=0:END
  3. 3 INPUT#9,N$(K):K=K+1:IFK<21THEN3
  4. 4 CLOSE9:POKE646,15:PRINT"[147][158]LAST 20 LEXIKOS PLAYERS[155]":FORI=1TO20:IFI<10THENPRINT"[155]";I"  [159]"N$(I)
  5. 5 IFI>9THENPRINT"[155]";I" [159]"N$(I)
  6. 6 NEXT:PRINT:PRINTTAB(6)"<PRESS RETURN TO LOAD MENU>
  7. 7 [161]Z$:[139]Z$[179][177][199](13)[167]7
  8. 8 [137]13
  9. 9 E[178]0:[132]15,E,E$,JU,JU:[139]E[178]0[176]E[178]1[167]12
  10. 10 [153]"LOAD"E$:[160]9:[152]15,"I0":TX[178]TI
  11. 11 [139]TI[179]TX[170]240[167]11
  12. 12 [142]
  13. 13 [151]53280,0:[151]53281,0:[151]646,15:[151]S,0:[151]S[170]1,0:[153]"LOAD"[163]18)"WAITSTOP":[153]"STOPLOAD";[199](34);"MENU";[199](34);",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]
  14.